4800- 

4802- 

4804- 

4806- 

4808- 

480A- 

480C- 

480E- 

4810- 

4812- 

4814- 

4816- 

4819- 

481C- 


481D- 
481F- 
4822- 
4 823- 
4825- 
4 827- 
482A- 
482C- 
4S2E- 
4831- 
4834- 
4837- 
4 838- 
483A- 
483D- 

4840- 

** 

4841- 
4843- 
4845- 
4848- 
484B- 
484C- 
484E- 
484F- 
4851- 
4853- 
4856- 
4859- 
485A- 
485C- 


A9 50 
85 F8 
A9 00 
85 FA 
AO 00 
81 FA 
FO OE 
E6 FA 
DO 02 
E6 FB 
85 F9 
20 ID 48 
4C OA 48 
60 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 


******************* 

* DUr.P TC BALLY 

* ARCADE FROM AN 

* APPLE II 


AIH 


DO FA 
AO 08 
20 4F 48 
46 F9 
BO 06 
20 4F 48 
4C 37 43 
20 41 48 
88 

DO FO 
20 41 48 
20 41 43 


1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 


* (C) 1981 WISEMAN 
******************* 
WAIT .EQ $FCAS 
TAPE ,EQ $0020 
AS70 .EG $F9 
3ADA .EG $5000 
.EG $FA 
.EG $FB 
•OS $4800 
****************** 
STAR LDA 4$50 
STA AIH 
LDA #$00 
STA AIL 
LDY *$00 

LOOP LDA (AIL)fY 
SEG DONE 
INC AIL 
BNE DOUR 
INC AIH 
DOUR STA ASTO 
JSR WRIT 
•IMP LOOP 
DONE RTS 

****************** 

* WRITE A BYTE 
WRIT LDY *$05 
HEAD JSR HZ48 
DEY 

BNE HEAD 
LDY #$08 
JSR HZ12 
TBTO LSR ASTO 
BCS B48A 
JSR HZ12 
JrtP TBT1 
B48A JSR HZ48 
TBT1 LEY 

BNE TBTO 
JSR HZ48 
JSR HZ48 
RTS 

******************** 


A2 10 
A9 06 
20 A8 FC 
AD 20 CO 
CA 


60 

A2 08 
A9 10 
20 A8 FC 
AD 20 CO 
CA 

DO F5 


1430 

1490 

1500 

1510 

1520 

1530 

1540 

1530 

1560 

1570 

1580 

1590 

1600 

1610 

1620 


* WRITE' THE TONES 
HZ48 LBX *$10 
HZ4A LDA *$06 
JSR WAIT 
LDA TAPE 
DEX 

BNE HZ4A 
RTS 

HZ12 LDX *$03 
HZ1A LDA *$10 
JSR WAIT 
LDA TAPE 
DEX 

BNE HZ1A 
RTS 


SYMBOL TABLE 

WAIT FCA8 TAPE 

BADA 5000 AIL 

STAR 4800 LOOP 

DONE 481C WRIT 

TBTO 432A B48A 

HZ48 4841 HZ4A 

HZ1A 4851 


4800- A9 50 85 FB A9 
4808- AO 00 B1 FA FO 
4810- DO 02 E6 FB 85 
4818- 48 4C OA 43 60 
4820- 41 48 88 DO FA 
4828- 4F 48 46 F9 BO 
4830- 48 40 37 48 20 
4833- DO FO 20 41 48 
4840- 60 A2 10 A9 06 
4848- AD 20 CO CA DO 
4850- 08 A9 10 20 A3 
4858- CO CA DO F5 60 


C020 ASTO OOF9 
OOFA AIH OOFB 
480A DOUR 4314 
481D HEAD 431F 
4334 TBT1 4337 
■*843 HZ12 484F 


00 85 FA 
OE E6 FA 
F9 20 ID 
AO 05 20 
AO 08 20 
06 20 4F 
41 48 S3 
20 41 43 
20 A8 FC 
F5 60 A2 
FC AD 20 
FF 00 00 



LOQO i******************** 


1010 * LOAD FROM BALLY 
1020 * TO APPLE 
1030 * 

1040 * (C) 1931 yiSEh'AN 

1050 ******************** 


1060 

1070 

1030 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

4600- A9 00 1160 

4602- 85 FD 1170 

4604- A9 50 1180 

4606- 85 FE 1190 

4608- AO 00 1200 

460A- 20 26 46 1210 

460D- A5 FC 1220 

460F- 91 FD 1230 

4611- 2C 30 CO 1240 

4614- E6 FD 1250 

4616- DO 02 1260 

4618- £6 FE .1270 

461A- C9 5C 1280 

461C- FO 03 1290 

461E- 4C OA 46 1300 

4621- A9 00 1310 

4623- 91 FD 1320 

4625- 60 1330 

1340 


TAPE .£Q $C060 
INPT «EQ $5000 
LAST .EQ $F9 
CNTR .EQ $r B 
BYTE .EQ $FC 
SPKR .EQ $C030 
AIL .EQ $FB 
AIH .EQ $FE 
.OR $4600 
*************** 

STAR LDA *$00 
STA AIL 
LDA *$50 
STA AIH 
LDY *$00 
NEXT J3R GBYT 
LDA BYTE 
STA ( AIL )»Y 
BIT SPKR 
INC AIL 
BNE QTST 
INC AIH 
QTST CMP *$5C 
BEQ QUIT 
JMP NEXT 
QUIT LDA *$00 

STA (AIL)fY 
RTS 

******************** 


4660- 
4662- 
4664- 
4667- 
4669- 
466B- 
466C- 
466E- 
4 670- 
4673- 
4675- 
4677- 


A2 07 
86 FB 
20 78 
C6 FB 
DO F9 
60 

A2 OF 
86 FB 
20 78 
C6 FB 
DO F9 
60 


1630 * GET A BIT 
16*0 BTTO LDX *$07 
1650 STX CNTR 

46 1660 BTLO JSR RDBI 
1670 DEC CNTR 

1680 BNE BTLO 

1690 RTS 

1700 ETT1 LDX *$CF 
1710 STX CNTR 

46 1720 BTL1 JSR RDBI 
1730 DEC CNTR 

1740 BNE BTL1 

1750 RTS 

1760 ********x*******x*** 


4678- A2 
467A- E8 
467E- AD 
467E- 45 
4680- 10 
4682- 45 
4684- 85 
4636- 8A 
4687- 60 


1770 * GET TONE CYCLE 
00 1730 RDBI LDX *$00 

1790 LOOP INX 
60 CO 1500 LDA TAFE 

F9 1310 EOS LAST 

F8 1820 BPL LOOP 

F9 1330 EOR LAST 

F9 1340 STA LAST 

1350 TXA 

1360 RTS 


SYMBOL TABLE 


TAPE 

CNTR 

AIL 

NEXT 


C060 

OOFB 

OOFD 

460A 


INPT 

BYTE 

AIH 

QTST 


5000 

OOFC 

OOFE 

461A 


LAST 

SPKR 

STAR 

QUIT 


00P9 

COSO 

4600 

4621 


4626- 

4628- 

462A- 

462C- 

462E- 

4631- 

4634- 

4636- 

4638- 

463B- 

463B- 

463F- 

4642- 

4645- 

4647- 

4649- 

464A- 

464C- 

464E- 

4651- 

4654- 

4655- 
4657- 
4659- 
465C- 
465F- 


1350 

A9 00 1360 

85 FB 1370 
A9 SO 1380 
85 FC 1390 
20 78 46 1400 
20 78 46 1410 
EO 15 1420 

BO F9 1430 
20 78 46 1440 
EO 15 1450 

90 F9 1460 
20 60 46 1470 
20 78 46 1480 
EO 15 1490 

90 OB 1500 
13 1510 

66 FC 1520 
BO 11 1530 

20 60 46 1540 
4C 42 46 1550 
38 1560 

66 FC 1570 
BO 06 1580 

20 6C 46 1590 
4C 42 46 1600 
60 1610 

1620 


* GET A BYTE 
GBYT LDA *$00 
STA CNTR 
LDA *$80 
STA BYTE 
JSR RDBI 
HEAP JSR RDBI 
CPX *$15 
ECS HEAF 
HEAD JSR RDBI 
CPX *$15 
BCC HEAD 
JSR BTTO 
TEST JSR RDBI 
CPX *$15 
BCC G0T1 
GOTO CLC 

ROR BYTE 
BCS DONE 
JSR BTTO 
JMP TEST 
G0T1 SEC 

RCR BYTE 
BCS DONE 
JSR BTT1 
JMP TEST 
DONE RTS 

******************** 


GBYT 

TEST 

DONE 

BTT1 

LOOP 


4626 

4642 

465F 

466C 

467A 


HEAP 

GOTO 

BTTO 

BTL1 


4631 

4649 

4660 

4670 


HEAD 

G0T1 

BTLO 

RDBI 


4633 

4654 

4664 

4678 


J$4600.4687 


4600- A9 00 85 
4608- AO 00 20 
4610- FD 2C 30 
4618- E6 FE C9 
4620- 46 A9 00 
4628- 85 FB A9 
4630- 46 20 78 
4638- 20 78 46 
4640- 60 46 20 
4648- OB 18 66 
4650- 46 4C 42 
4658- 06 20 6C 
4660- A2 07 86 
4668- FB DO F9 
4670- 20 73 46 
4678- A2 00 E3 
4680- 10 F8 45 


FD A9 50 85 FE 
26 46 A5 FC 91 
CO E6 FD DO 02 
5C FO 03 4C OA 
91 FD 60 A9 00 
80 85 FC 20 73 
46 EO 15 BO F9 
EO 15 90 F9 20 
73 46 EO 15 90 
FC BO 11 20 60 
46 33 66 FC BO 
46 4C 42 46 60 
FB 20 78 46 C6 
60 A2 OF 86 FB 
C6 FB DO F9 60 
AD 60 CO 45 F9 
F9 85 F9 


8A 60 




1000 ******************* 

1010 * KEYBOARD ENTRY 
1020 * 

1030 * APPLE KEYBOARD 
1040 * TO BALLY ARCADE 
1050 * 

1060 * (C) 1981 WISEMAN 
1070 ittttlUittxmUu 
1030 LAST .EQ $FE 
1090 THIS .EQ $FF 
1100 KEYB .EQ $COOO 
1110 KEYR .EQ $0010 
1120 PROS .EQ $5000 
1130 SEND .EQ $4800 
1140 .OR $*400 

1150 ******************** 

4400- AO 00 1160 STAR LDY **00 

4402- SC 68 45 1170 STY PRSW 

4405- 8C 00 50 1180 LOOP STY PROG 

4408- SC 01 50 1190 STY PROG+1 

4408- 8C 02 50 1200 STY PROG+2 

440E- 20 62 45 1210 J3R KEYI 

4411- C9 DE 1220 CNF **DE 

4413- FO 2C 1230 EEQ QUIT 

4415- C9 88 1240 CMP *$83 

4417- FO 29 1250 BEQ SERA 

4419- C9 AA 1260 CMP **AA 

441B- FO 2A 1270 BEQ SMLT 

441D- C9 BF 1280 CMP *$BF 

441F- FO 2B 1290 BEQ SBIV 

4421- C9 A2 1300 CMP **A2 

4423- FO 2C 1310 BEQ SQQT 

4425- C9 8D 1320 CMP **8D 

4427- FO 33 1330 BEQ SRET 

4429- 49 80 1340 EXCL EOR **80 

442B- 85 FF 1350 STA THIS 

442D- CC 6B 45 1360 CPY PRSU 

4430- DO 04 1370 . BNE GOTL 

4432- C9 41 1330 CMP **41 

4434- BO 2C 1390 BCS CHEK 

4436- 85 FE 1400 GQTL STA LAST 

4438- 8D 00 50 1410 XOFF STA PROG 

443B- 20 00 43 1420 .JSR SEND 

443E- 4C 05 44 1430 JMP LOOP 

4441- 60 1440 QUIT RTS 

1450 ******************* 
1460 * SPECIAL CHARACTERS 

4442- A9 IF 1470 SERA LDA **1F 

4444- 4C 36 44 1480 JMP GOTL 

4447- A9 62 1490 SMLT LDA **62 

4449- 4C 36 44 1500 JMP GOTL 

444C- A9 63 1510 SDIV LDA *$63 

444E- 4C 36 44 1320 JMP GOTL 

4451- CC 6B 45 1530 SQOT CPY PRSW 

4454- DO 06 1540 BNE SRET 

4456- EE 6B 45 1550 INC PRSW 

4459- 4C 29 44 1560 JMP EXCL 

445C- 6C 6B 45 1570 SRET STY PRSW 

445F- 4C 29 44 1580 JMP EXCL 

1590 ******************* 
4462- A5 FE 1600 CHEK LDA LAST ' 

4464- C9 41 1610 CMP *$41 

4466- BO 05 1620 ECS TEST 

4468- AS FF 1630 CHKD LDA THIS 

446A- 4C 36 44 1640 JMP GOTL 


1650 ******************* 
1660 * TWO LETTERS TGSrtTR 

446D- 20 73 44 1670 TEST JSR CMBO 

4470- 4C 68 44 1630 JMP CHKD 

1690 ******************* 
1700 * CHECK COMBO'S 
4473- C9 49 1710 CMBO CM? *$49 

4475- FO 32 1720 BEQ GINI 

4477- 90 11 1730 BCC CME1 

4479- C9 50 1740 CMP *$50 

447B- FO 37 1750 BEQ GINP 

447B- 90 1C 1760 BCC CMB2 

447F- C9 53 1770 CMP *$53 

4481- FO 38 1780 BEQ GINS 

4483- 90 IF 1790 BCC CMB3 

4485- C9 54 1800 CMP *$54 

4487- FO 39 1810 BEQ GINT 

4489- 60 1820 RTS 

448A- C9 47 1830 CMB1 CMP *$47 

448C- FO 3B 1840 BEQ GING 

448E- C9 42 1850 CMP *$42 

4490- FO 42 1860 EEQ GINB 

44 92- C9 43 1870 CMP *$43 

4494- FO. 45 1880 BEQ GINC 

4496- C9 46 1890 CMP *$46 

4498- FO 48 1900 BEQ GINF 

449A- 60 1910 RTS 

449B- C9 4C 1920 CMB2 CMP *$4C 

449D- FO 4A 1930 BEQ GINL 

449F- C9 4E 1940 CMP *$+E 

44A1- FO 51 1950 BEQ GINN 

44A3- 60 1960 RTS 

44A4- C9 52 1970 CMB3 CMP *$52 

44A6- FO 53 1980 BEQ GINR 

44A8- 60 1990 RTS 

2000 ******************* 
2010 * TEST SECOND LETTER 

44A9- A5 FF 2020 GINI LDA THIS 

44AB- C9 46 2030 CMP *$+6 

44AD- FO 5B 2040 BEQ SIF 

44AF- C9 4E 2050 CMP *$4E 

44B1- FO 5C 2060 BEQ SIN 

44B3- 60 2070 RTS 

44B4- A5 FF 2080 GINP LDA THIS 

44B6- C9 52 2090 CMP *$52 

44B8- FO 5A 2100 BEQ SPR 

44BA- 60 2110 RTS 

44BB- A5 FF 2120 GINS LDA THIS 

44BD- C9 54 2130 CMP *$54 

44BF- FO 58 2140 BEQ S5T 

44C1- 60 2150 RTS 

44C2- A5 FF 2160 GINT LDA THIS 

44C4- C9 4F 2170 CMP *$4F 

44C6- FO 56 2180 BEQ STO 

44C8- 60 2190 RTS 

44C9- A5 FF 2200 GING LDA THIS 

44CB- C9 4F 2210 CMP *$4F 

44CD- FO 54 2220 BEQ SGG 

44CF- C9 53 2230 CMP *$53 

44D1- FO 55 2240 BEQ SGS 

44D3- 60 2250 RTS 

44D4- A5 FF 2260 GINB LDA THIS 

44D6- C9 4F 2270 CMP *$4F 

44D8- FO 53 2280 BEQ SBG 

44DA- 60 2290 RTS 

44DB- A5 FF 2300 GINC J.BA THIS 



SYMBOL TABLE 


44DD- 

44DF- 

44E1- 

44E2- 

44E4- 

44E6- 

44E8- 

44E9- 

44EB- 

44ED- 

44EF- 

44F1- 

44F3- 

44F4- 

44F6- 

44F8- 

44FA- 

44FB- 

44FB- 

44FF- 

4501- 

4503- 

4505- 

4507- 

4509- 


450A- 

4500- 

450F- 

4511- 

4514- 

4516- 

4519- 
451B- 
451E- 

4520- 
4523- 
4525- 
4 528- 
452A- 
452B- 
452F- 
4532- 
4534- 
4537- 
4 539- 
4530- 
453E- 
4541- 
4543- 
4546- 
4548- 
454B- 
454D- 
4550- 
4552- 
4 555- 
4557- 


455A- 

455D- 

455F- 

4561- 


4562- 

4565- 

4567- 

456A- 

456B- 


A5 FF 
C9 4F 
FO 4F 
60 

A5 FF 
C9 49 
FO 4B 
C9 53 
FO 4E 
60 

A5 FF 
C9 45 
FO 4C 
60 

A5 FF 
C9 45 
FO 4A 
C9 4E 
FO 4B 
C9 55 
FO 4C 
60 


A9 6D 
4C 5A 45 
A9 73 
4C 5A 45 
A9 74 
4C 5A 45 
A9 75 
4C 5A 45 
A9 77 
4C 5A 45 
A9 6£ 

40 5A 45 
A9 6F 
40 5A 45 
A9 71 
40 5A 45 
A9 69 
40 5A 45 
A9 72 
40 5A 45 
A9 60 
40 5A 45 
A9 68 
40 5A 45 
A9 6B 
40 5A 45 
A9 70 
40 5A 45 
A9 76 
40 5A 45 
A9 6A 
40 5A 45 


AD 00 CO 
10 FB 
20 10 CO 


2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2430 

2490 


GINF LDA THIS 
CMP *$4F 
BE3 SFQ 
RTS 

GINL 


1500 


2540 

2550 

2560 

2570 

2530 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2630 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2310 

2820 

2330 

' 5*0 

2850 

2860 

2370 

2830 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 


LDA THIS 
CMP 4J49 
BEG SLI 
CMP #$53 
BEQ SLS 
RTS 

GINN LDA THIS 
CMP #345 
BEQ SNE 
RTS 

GINR LDA THIS 
CMP *$45 
BEQ SRE 
CMP *$4E 
BEQ SRN 
CMP *$55 
BEQ SRU 
RTS 

»*$»***«:«*»««***«»* 

* SEND BALLY WORD 

SIF LDA #$6D 

JHP ERA 

SIN LDA *$73 
JMP ERA 
LDA *$74 
JMP ERA 
LDA *$75 
JMP ERA 

STQ LDA #$77 * 

JHP ERA 

S3G LDA *$6E 
JMP ERA 
LDA *$6F 
JMP ERA 
LDA *$71 
JMP ERA 
LDA *$69 
JMP ERA 
LDA *$72 
JMP ERA 
LDA *$6C 
JMP ERA 
LDA *$68 
JMP ERA 
LDA #$6B 
JMP ERA 
LDA *$70 
JMP ERA 
LDA #$76 
JMP ERA 
LDA #$6A 
JMP ERA 

****** 

ERA STA PROG+1 
LDA *$1F 
STA THIS 
RTS 

******************* 

* KEYBOARD INPUT 

KEYI LDA KEYB 

BPL KEYI 
BIT KEYR 
RTS 

PRSU .HS 00 


SPR 


SST 


SGS 


SBQ 


SLI 


SLS 


SNE 


SRN 


SRU 


LAST .OOFE 
KEYR C010 
STAR 4400 
GOTL 4436 
SERA 4442 
SOOT 4451 
CHKD 4466 
CMB1 448A 
GINI 44A9 
GINT 4402 
GINC 44DB 
GINN 44F4 
SIN 450F 
STO 451E 
SBO 452D 
SLI 4530 

SRE 454B 
ERA 455A 


THIS 00FF 
PROG 5000 
LOOP 4405 
XCFF 4438 
SMLT 4447 
SRET 4450 
TEST 446B 
CMB2 449B 
GINP 44B4 
GING 4409 
GINF 44E2 
GINR 44FB 
SPR 4514 
SGO 4523 
SOL 4532 
SLS 4541 
SRN 4550 
KEYI 4562 


NEYB COOO 
SEND 4300 
EXCL 4429 
QUIT 4441 
SBIV 4440 
CHEK 4462 
CMBO 4473 
CMB3 44A4 
GINS 44BB 
GIN8 44D4 
GINL 44E9 
SIF 450A 
SST 4519 
SGS 4528 
SFO 4537 
SNE 4546 
SRU 4555 
PRSU 456B 



< $4400.436B 

4400- AO 00 SC 
4408- SC 01 50 
4410- 45 C9 BE 
4418- 29 C9 AA 
4420- 2B C9 A2 
4428- 33 49 80 
4430- DO 04 C9 
4433- SS OC 50 
4440- 44 60 A9 
4448- 62 4C 36 
4450- 44 CC 6B 
4458- 45 4C 29 
4460- 29 44 A5 
4468- A5 FF 4C 
4470- 4C 68 44 
4478- 11 C9 50 
4480- 53 FO 33 
4488- 39 60 C9 
4490- FO 42 C9 
4498- FO 48 60 
44A0- 4E FO 51 
44A8- 60 A5 FF 
44B0- 4E FO 5C 
44B8- FO 5A 60 
44C0- 58 60 A5 
44C8- 60 A5 FF 
44D0- 53 FO 55 
44D8- FO 53 60 
44E0- 51 60 A5 
44E8- 60 A5 FF 
44F0- 53 FO 4E 
44F8- FO 4C 60 
4500- 4A C9 4£ 
4508- 4C 60 A9 
4510- 73 4C 5A 
4518- 45 A9 75 
4520- 4C 5A 45 
4528- A9 6F 4C 
4530- 5A 45 A9 
4538- 72 4C 5A 
4540- 45 A9 63 
4548- 4C 5A 45 
4550- A9 76 4C 
4558- 5A 45 SD 
4560- FF 60 AD 
4568- 10 CO 60 


6B 45 SC 00 50 
SC 02 50 20 62 
FO 2C C9 83 FO 
FO 2A C9 BF FO 
FO 2C C9 SD FO 
85 FF CC 6B 45 
41 BO 2C 85 FE 
20 00 43 4C 05 
IF 4C 36 44 A9 

44 A9 63 4C 36 

45 BO 06 EE 6B 

44 3C 63 45 4C 
FE C9 41 BO 05 
36 44 20 73 44 
C9 49 FO 32 90 
FO 37 90 1C C9 
90 IF C9 54 FO 
47 FO 3B C9 42 
43 FO 45 C9 46 
C9 4C FO 4A C9 
60 C9 52 FO 53 
C9 46 FO 5B C9 
60 A5 FF C9 52 
A5 FF C9 54 FO 
FF C9 4F FO 56 
C9 4F FO 54 C9 
60 A5 FF C9 4F 
A5 FF C9 4C FO 
FF C9 4F FO 4F 
C9 49 FO 4D C9 
60 A5 FF C? 45 
A5 FF C9 45 FO 
FO 4B C9 55 FO 
65 4C 5A 45 A? 

45 A? 74 4C 5A 
4C 5A 45 A9 77 
A9 6E 4C 5A 45 
5A 45 A9 71 4C 
69 4C 5A 45 A9 
45 A9 6C 4C 5A 
4C 5A 45 A9 6B 
A? 70 4C 5A 45 
5A 45 A9 6A 4C 
01 50 A? IF 85 
00 CO 10 FB 2C 
00 





1530 hCLA .HS 00 


1000 ****************** 
1010 * PRINT BALLY ARCADE 


4200- A9 50 
4202- S5 FF 
4204- AO 00 
4206- 84 FE 
4208- AD 00 CO 
420B- 10 OB 
420D- 2C 10 CO 
4210- AB 00 CO 
4213- 10 FB 
4215- 2C 10 CO 
4218- B1 FE 
421A- DO 01 
421C- 60 
421B- 49 80 
421F- C9 BB 
4221- BO OC 
4223- 20 ED FB 
4226- E6 FE 
4228- DO DE 
422A- E6 FF 
422C- 4C 08 42 

******** 

RDS 


1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1230 

1290 

1300 

1310 

1320 

1330 

1340 

1350 


* TINY BASIC CN AN 

* APPLE II 

* 

* (C) 1981 WISEMAN 
******************* 
AIL .EQ $FE 
AIH -EG $FF 
COUT -ES 5FDE0 
KEYB -EQ SCOOO 
KEYR -ES $CQ10 
-CR $4200 


******************* 

STAR LDA 4$50 
STA AIH 
LBY 4$00 
STY AIL 
GETC LDA KEYB 
BPL GTCC 
BIT KEYR 
HANG LDA KEYB 
BPL HANG 
BIT KEYR 

GTCC LDA (AIL )»Y 
BNE GOTC 

GOTC ECR 4$80 
CMP *$D£ 

ECS PRWD. 

JSR COUT 
NEXT INC AIL 
BNE GETC 
INC AIH 
JMP GETC 

******************** 


1360 * HANDLE SPECIAL WO 


1370 ******************** 


******** 

422F- E9 BA 
4231- 3D 51 42 
4234- A2 00 
4236- BD 52 42 
4239- E8 
423A- C9 AO 
423C- DO F8 
423E- CE 51 42 
4241- DO F3 
4243- BD 52 42 

4246- E8 

4247- 20 ED FD 
424A- C9 AO 
424C- DO F5 
424E- 4C 26 42 


1330 PRUD SBC *$BA 
1390 STA HOLA 

1400 LDX 4*00 

1410 LOOP LDA WRDS r X 
1420 INX 

1430 CMP 4*A0 

1440 BNE LOOP 

1450 DEC KOLA 

1460 BNE LOOP 

1470 PRLP LDA URDSfX 
1430 INX 

1490 JSR COUT 

1500 CMP 4$A0 

1510 BNE PRLP 

1520 JMP NEXT 


4251- 00 

4252- AO AS 
4255- AF AC 
4258- AO EE 
425B- BF AO 
425E- AO BF 


AO 

A9 

AO 

BF 


1540 tiRDS 


( / ) T 


4260- AO AA AO 
4263- AF AO BF 
4266- AO BF AO 
4269- BF AO BF 1350 
? ?* 

426C- AO EC C9 
426F- B3 D4 AO 
4272- C3 CC C5 

4275- Cl D2 AO 

4276- D2 B5 CE 1560 
AR RUN* 

427B- AO CE C5 
427E- 13 D4 AO 
4231- CC C9 CE 
4284- C5 AO C? 
4287- C6 AO C7 
428A- CF B4 CF 1570 
E IF GOTO* 

42BD- AO C7 CF 
4290- D3 D5 C2 
4293- AO D2 C5 
4296- D4 B5 D2 
4299- CE AO C2 
429C- CF DS 1580 
TURN BOX* 

429E- AO C6 CF 
42A1- D2 AO C9 
42A4- CE DO D5 
42A7- D4 AO DO 
42AA- D2 C9 CE 
42AD- D4 1590 

T PRINT* 

42AE- AO D3 D4 
42B1- C5 DO AO 
42B4- D2 CE C4 
42B7- AO B4 CF 
42BA- AO BF AO 
42£B- BF AO BF 
42C0- AO BF AO 
42C3- BF 1600 

TO ? ? ? ? ?* 

42C4- AO BF AO 
42-C7- BF AO BF 
42CA- AO BF AO 
42CD- BF AO BF 


.AS -"*/?? 


.AS -“ LIST CLE 


.AS -“ NEXT LIN 


.AS -* GOSUB RE 


.AS -• FOR INPU 


.AS -" STEP RNB 


.AS -“ ? ? ? ? 



SYhBOL TABLE 



AIL OOFE AIH 

KEYB COOO KEYS 

GETC 4208 HANG 

GOTC 421D NEXT 

LOOP 4236 PRLP 

WRBS 4252 


00Fr C3UT FEED 
C010 STAR 4200 
4210 GTCC 4218 
4226 PRUD 422F 
4243 HGLA 4251 


J$4200.4207 

4200- A9 50 85 
4208- AD 00 CO 
4210- AD 00 CO 
4218- B1 FE DO 
4220- BB BO OC 
4228- BO BE E6 
4230- BA 8D 51 
4233- 42 ES C? 
4240- 42 BO F3 
4248- ED FD C? 
4250- 42 00 AO 
4258- AO BE AO 
4260- AO AA AO 
4268- AO BF AO 
4270- D4 AO C3 
4278- D2 B5 CE 
4280- AO CC C9 
4288- AO C7 CF 
4290- B3 B5 C2 
4298- B2 CE AO 
42A0- CF D2 AO 
42A8- AO DO D2 
42B0- D4 C5 DO 
42E8- B4 CF AO 
42C0- AO BF AO 
42C8- AO BF AO 
42D0- AO BF 00 


FF AO CO 84 FE 
10 OB 2C 10 CO 
10 FB 2C 10 CO 
01 60 49 SO C9 
20 ED FB E6 FE 
FF 4C 08 42 E9 
42 A2 00 BD 52 
AO DO F3 CE 51 
BD 52 42 ES 20 
AO DO FS 4C 26 
A3 AO AF AO A? 
BF AO EF AO BF 
AF AO BF AO BF 
BF AO CC C9 B3 
CC C5 Cl B2 AO 
AO CE C5 B8 D4 
CE C5 AO C9 C6 
D4 CF AO C7 CF 
AO B2 C5 B4 D5 
C2 CF B8 AO C6 
C9 CE BO 05 B4 
C9 CE B4 AO B3 
AO B2 CE C4 AO 
BF AO BF AO BF 
BF AO BF AO BF 
BF AO BF AO BF 
00 FF FF 00 00 



1 REM ***************it ****** 

2 REM * SAMPLE PILE HANDLER 

3 REM * FGR USE WITH APPLE II 

4 REM * BALLY ARCADE INTERFACE 

5 REM * 

6 REM * (C) 1981 WISEMAN 

7 REM *********************** 

8 b = o:c = o:b = o:e = o 

10 HOME 

15 D* = CHRt (4) 

20 PRINT J PRINT J PRINT “BALLY 
ARCADE FILE HANDLER" 

30 PRINT 5 PRINT "DO YOU WANT TO 


40 PRINT : PRINT * 1. LOAD F 

ROM BALLY.* 

50 PRINT * 2. DUMP TO BALLY. 

55 PRINT “ 3. CATALOG OF FRO 

GRAMS.* 

56 PRINT * 4. TYPE TO BALLY. 


57 PRINT * 5. LIST TINY BA3I 

C PROGRAM.* 

59 PRINT * 6. QUIT.* 

60 GET At: IF At = *1* THEN GOTO 

100 

70 IF At = *2* THEN GOTO 300 

71 IF At = *3* THEN PRINT Dt: PRINT 

Dt'CATALOG*: PRINT : GOTO 20 


74 IF At = *4* THEN GOTO 500 

75 IF At = *5* THEN 600 
80 END 

95 REM ********************** 

100 REM LOAD FROM BALLY 

101 REM ********************** 

102 IF B THEN 120 
105 PRINT Dt 

110 PRINT Dt?“BLOAD LOAD FROM BA 
LLY ( *4600 )* 

115 B = 1 

120 PRINT "HIT RETURN WHEN YOU A 
RE READY* 

130 GET At 
140 CALL 17920 

150 A = PEEK (253) + 256 * PEEK 
(254) + 5 

160 PRINT ‘LOAD COMPLETED* 

170 PRINT 1 PRINT "DO YOU WANT T 
0 SAVE THIS TC DISK? CY/N)*: 

GET At 

180 IF At = ”N* THEN GOTO 20 
185 PRINT 

190 PRINT "ENTER FILE NAME*: INPUT 
At 

195 PRINT Dt 

■ 200 PRINT Dt. *BSAVE *A$"»A*5000» 

L“A - 20480 

210 PRINT : PRINT "COMPLETED*: PRINT 
BfCATALCG*: GOTO 20 
299 REM *********************** 


300 REM DUMP TO BALLY 

301 REM *********************** 

302 IF C THEN 320 
305 PRINT Dt 

310 PRINT Bt»“BLOAD DUMP TO BALL 

Y (*4800 )* 

315 C = 1 

320 PRINT : PRINT "WHAT IS THE N 
AME OF THE PROGRAM?": INPUT 

At 

340 PRINT DtJ*BLOAD *»A* 

345 PRINT 

350 PRINT "HIT RETURN TO DUMP "A 

t 

355 GET A* 

360 CALL 18432 

370 PRINT : PRINT "DUMP IS COMPL 
ETED": GOTO 20 

496 REM *********************** 

* 

497 REM KEYBOARD TO BALLY 

499 REM *********************** 

500 IF C THEN 520 
505 PRINT Dt 

510 FRINT Dt?"BLOAD DUMP TO BALL 

Y (t4800)“ 

515 C = 1 

517 IF D THEN 520 

519 D = I! PRINT Dt: PRINT Dt) a BL 

OAD TYPE TO BALLY (t4400 )“ 

520 PRINT : PRINT "ENTER BALLY P 
RCGRAM": PRINT 

530 CALL 17408 
540 GOTO 20 

599 REM *********************** 

600 REM PRINT BALLY PROGRAM 

601 REM ********************** 
610 PRINT : PRINT "IS PROGRAM LO 

ADED? (Y/N)" 

620 GET At: IF At = "Y" THEN GOTO 
650 

630 PRINT : PRINT “ENTER PROGRAM 

name:": input At 
635 PRINT Dt 
640 PRINT Dt)“BLOAD "JAt 
650 IF E = 0 THEN PRINT Dt»“BLG 
AD PRINT BALLY (t4200)":E = 

1 

660 CALL 16896: GOTO 20 



